VERSION 5.00
Begin VB.Form frmPreferences 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   " "
   ClientHeight    =   3585
   ClientLeft      =   8430
   ClientTop       =   7275
   ClientWidth     =   5925
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   3585
   ScaleWidth      =   5925
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.ComboBox cboInternetConnect 
      Height          =   315
      ItemData        =   "frmPreferences.frx":0000
      Left            =   2190
      List            =   "frmPreferences.frx":000A
      Style           =   2  'Dropdown List
      TabIndex        =   12
      Top             =   1905
      Width           =   3270
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   435
      Left            =   3255
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   4515
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Cancel"
      Height          =   855
      Left            =   3240
      Picture         =   "frmPreferences.frx":002A
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   2445
      Width           =   1455
   End
   Begin VB.CommandButton cmdAccept 
      Caption         =   "Accept"
      Height          =   855
      Left            =   1140
      Picture         =   "frmPreferences.frx":0334
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   2445
      Width           =   1455
   End
   Begin VB.ComboBox cboTransmit 
      Height          =   315
      ItemData        =   "frmPreferences.frx":063E
      Left            =   2190
      List            =   "frmPreferences.frx":064E
      Style           =   2  'Dropdown List
      TabIndex        =   9
      Top             =   1350
      Width           =   3270
   End
   Begin VB.TextBox txtPEEMail 
      Height          =   300
      Left            =   2190
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   825
      Width           =   3225
   End
   Begin VB.TextBox txtEngineer 
      Height          =   300
      Left            =   2190
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   300
      Width           =   3225
   End
   Begin VB.TextBox txtMyemail 
      Height          =   300
      Left            =   2430
      TabIndex        =   1
      TabStop         =   0   'False
      Text            =   "Text1"
      Top             =   6135
      Width           =   3225
   End
   Begin VB.TextBox txtUSERID 
      Height          =   300
      Left            =   2430
      TabIndex        =   0
      TabStop         =   0   'False
      Text            =   "Text1"
      Top             =   5715
      Width           =   3225
   End
   Begin VB.Label Label6 
      Caption         =   "Internet Connection"
      Height          =   435
      Left            =   360
      TabIndex        =   13
      Top             =   1920
      Width           =   1485
   End
   Begin VB.Label Label5 
      Caption         =   "Preferred Way to Send Files"
      Height          =   435
      Left            =   405
      TabIndex        =   8
      Top             =   1245
      Width           =   1485
   End
   Begin VB.Label Label4 
      Caption         =   "Engineer's EMail Address"
      Height          =   435
      Left            =   405
      TabIndex        =   7
      Top             =   720
      Width           =   1485
   End
   Begin VB.Label Label3 
      Caption         =   "FDOT Engineer"
      Height          =   225
      Left            =   405
      TabIndex        =   6
      Top             =   300
      Width           =   1485
   End
   Begin VB.Label Label2 
      Caption         =   "My EMail Address"
      Height          =   225
      Left            =   645
      TabIndex        =   5
      Top             =   6135
      Width           =   1485
   End
   Begin VB.Label Label1 
      Caption         =   "My User ID"
      Height          =   225
      Left            =   645
      TabIndex        =   4
      Top             =   5715
      Width           =   1485
   End
End
Attribute VB_Name = "frmPreferences"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAccept_Click()
Data1.Recordset.Edit
'Data1.Recordset("Userid") = txtUSERID.Text
'Data1.Recordset("Myemail") = txtMyemail.Text

If Trim(txtEngineer.Text) = "" Then txtEngineer.Text = " "
If Trim(txtPEEMail.Text) = "" Then txtPEEMail.Text = " "

Data1.Recordset("Engineer") = txtEngineer.Text
Data1.Recordset("PEEmail") = txtPEEMail.Text
Data1.Recordset("Transmit") = cboTransmit.Text
Data1.Recordset("InternetConnect") = cboInternetConnect.Text
Data1.Recordset.Update

If cboTransmit.Text = "DISK" Then frmContractor.optDisk = True
If cboTransmit.Text = "CD" Then frmContractor.optCD = True
If cboTransmit.Text = "EMAIL" Then frmContractor.optEMail = True
If cboTransmit.Text = "FTP" Then frmContractor.optFTP = True


Unload Me

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Form_Load()
Me.Height = 3870

GettheData:
Data1.DatabaseName = App.Path & "\Preferences.mdb"
Data1.RecordSource = "select * from Preferences where username='" & glbLoginName & "'"
Data1.Refresh

If Data1.Recordset.EOF Then
    Data1.Recordset.AddNew
    Data1.Recordset("UserName") = glbLoginName
    Data1.Recordset("Engineer") = "Input your Engineer's Name"
    Data1.Recordset("PEEmail") = "The Engineer's E-Mail address"
    Data1.Recordset("Transmit") = "FTP"
    Data1.Recordset("InternetConnect") = "DIAL UP"
    Data1.Recordset.Update
    GoTo GettheData
End If


Me.Caption = glbLoginName & "'s Preferences"



'txtUSERID.Text = Data1.Recordset("Userid")
'txtMyemail.Text = Data1.Recordset("Myemail")
txtEngineer.Text = Trim(Data1.Recordset("Engineer"))
txtPEEMail.Text = Trim(Data1.Recordset("PEEmail"))
cboTransmit.Text = Data1.Recordset("Transmit")
cboInternetConnect.Text = Data1.Recordset("InternetConnect")
End Sub

